﻿Imports System.IO

Module mainModule
    Sub main(ByVal cmdArgs() As String)
        Application.EnableVisualStyles()
        Application.DoEvents()
        If (cmdArgs IsNot Nothing And cmdArgs.Length > 0) Then

            Settings.dataBaseType = cmdArgs(0) 'Pega o tipo de BD (Access ou SQL)
            Settings.dataBaseDir = cmdArgs(1) 'Pega o diretório (Access) ou string de conexão (SQL) do banco
            Settings.dirToRestore = cmdArgs(2) & "\" 'Pega o diretório para restauração de BDs em Access

            If (Settings.dataBaseType.ToLower() = "access") Then
                Dim fi As New IO.FileInfo(Settings.dataBaseDir)
                Settings.dbName = fi.Name
            End If

            Application.Run(If(cmdArgs(3).ToLower() = "normal", New Principal("normal"), New Principal("restaurar")))

        Else
            Application.Run(New Principal("normal"))
        End If

    End Sub

End Module
